#! tiny
1000 "Ulam's conjecture "
1010 "\n\nEnter a starting number 0 to exit >" [?] n
1015 [n 0 = 1140 *] @
1020 [0] e o m 
1030 [n] ? "\t" 
1032 [n 2 % 0 = 1050 * ] @
1040 [n 3 * 1 +] n   [o 1 +] o "Odd  " [1060] @
1050 [n 2 / ] n      [e 1 +] e "Even " 
1060 [n] ? "\n" [n m < 1080 *] @
1070 [n] m
1080 [n 1 = ! 1030 *] @
1085 "\n"
1090 "Steps " [e o +]? "\n"
1100 "Max   " [m] ?    "\n"
1110 "Even  " [e] ?    "\n"
1120 "Odd   " [o] ?    "\n"
1130 [1010] @
1140 .
